r = 1 gotticket = 1 SCREEN 12 COLOR 7, 0 CLS DIM SHARED DOOM AS DOUBLE Minutes = 30 Seconds = 0 GameTime = Minutes * 60 + Seconds DIM directions(1 TO 66) AS STRING directions(1) = "NORTH" directions(2) = "NORTH" directions(3) = "EAST OR WEST" directions(4) = "NORTH OR WEST" directions(5) = "NORTH OR EAST" directions(6) = "NORTH, SOUTH, EAST, OR WEST" directions(7) = "NORTH, EAST, OR WEST" directions(8) = "WEST" directions(9) = "NORTH" directions(10) = "NORTH OR SOUTH" directions(11) = "EAST" directions(12) = "NORTH, SOUTH, EAST, OR WEST" directions(13) = "NORTH, SOUTH, OR WEST" directions(14) = "NORTH OR SOUTH" directions(15) = "EAST OR SOUTH" directions(16) = "NORTH, EAST, OR WEST" directions(17) = "NORTH, SOUTH, OR WEST" directions(18) = "NORTH, SOUTH, OR EAST" directions(19) = "WEST" directions(20) = "NORTH OR SOUTH" directions(21) = "SOUTH" directions(22) = "EAST OR SOUTH" directions(23) = "NORTH, EAST, OR WEST" directions(24) = "WEST OR SOUTH" directions(25) = "NORTH OR SOUTH" directions(26) = "NORTH, SOUTH, OR EAST" directions(27) = "EAST OR WEST" directions(28) = "EAST, WEST, OR SOUTH" directions(29) = "NORTH, EAST, OR WEST" directions(30) = "NORTH, EAST, OR WEST" directions(31) = "EAST, WEST, OR SOUTH" directions(32) = "NORTH OR WEST" directions(33) = "SOUTH" directions(34) = "NORTH, SOUTH, OR EAST" directions(35) = "WEST" directions(36) = "EAST" directions(37) = "WEST OR SOUTH" directions(38) = "NORTH, SOUTH, OR EAST" directions(39) = "NORTH, EAST, OR WEST" directions(40) = "EAST, WEST, OR SOUTH" directions(41) = "NORTH OR WEST" directions(42) = "SOUTH" directions(43) = "EAST OR WEST" directions(44) = "NORTH OR WEST" directions(45) = "NORTH OR EAST" directions(46) = "NORTH OR WEST" directions(47) = "SOUTH OR EAST" directions(48) = "NORTH OR WEST" directions(49) = "NORTH, SOUTH, OR WEST" directions(50) = "NORTH" directions(51) = "EAST" directions(52) = "NORTH, SOUTH, OR WEST" directions(53) = "SOUTH" directions(54) = "NORTH, EAST, OR WEST" directions(55) = "NORTH" directions(56) = "NORTH OR SOUTH" directions(57) = "NORTH OR SOUTH" directions(58) = "NORTH, SOUTH, OR EAST" directions(59) = "EAST OR WEST" directions(60) = "EAST, WEST, OR SOUTH" directions(61) = "EAST OR WEST" directions(62) = "WEST OR SOUTH" directions(63) = "SOUTH OR EAST" directions(64) = "SOUTH, EAST, OR WEST" directions(65) = "WEST OR SOUTH" directions(66) = "SOUTH" PRINT "" PRINT "" PRINT "The cold breeze travels through the night and as the moon gives off an eerie" PRINT "glow. Another night, another time, in another place. You are standing in the" PRINT "entrance way of a corn maze. A large sign stands above your head. It reads " PRINT "-Bernish Corn Mazes-. The night is young and you decide to take a walk through" PRINT "this maze of corn. Though you have never set foot on a farm or for that a corn" PRINT "maze either. This looks like it's going to be fun. You take a deep breath" PRINT "and enter into the maze." DO: LOOP UNTIL INKEY$ <> "" DOOM = TIMER(0.001) + GameTime 'change this to to desied time for the game to run DO CLS PRINT PRINT PRINT " " PRINT " " PRINT " " PRINT " ,, " PRINT " ,, ,\\//, " PRINT " ,\\//, ,\\\///, ,, " PRINT " ,\\\///, \\\\//// ,\\//, " PRINT " \\\\//// \\\/// ,\\\///, Into the Shadows of the Maze " PRINT " \\\/// ###### \\\\//// Amusement Series III " PRINT " ###### ////\\\\ \\\/// Written by " PRINT " ////\\\\ /////\\\\\###### " PRINT " /////\\\\\//////\\\\////\\\\ D.B. Taylor " PRINT "//////\\\\\\/////\\\/////\\\\\ " PRINT "////// _\\\\ //////\\\\\\ Copyright (c) 2015 " PRINT " ///////\\\\\ " PRINT "" PRINT SPACE$(38); IF INSTR(directions(r), "NORTH") THEN PRINT "N" ELSE PRINT PRINT "*---------------------------------* "; IF INSTR(directions(r), "WEST") THEN PRINT "W"; ELSE PRINT " "; PRINT " + "; IF INSTR(directions(r), "EAST") THEN PRINT "E"; ELSE PRINT " "; PRINT " *------------------------------------*" PRINT SPACE$(38); IF INSTR(directions(r), "SOUTH") THEN PRINT "S" ELSE PRINT PRINT PRINT "If you are stuck just type HELP." PRINT GOSUB ROOM GOSUB parser LOOP ROOM: IF r = 1 THEN: GOSUB r1 IF r = 2 THEN: GOSUB r2 IF r = 3 THEN: GOSUB r3 IF r = 4 THEN: GOSUB r4 IF r = 5 THEN: GOSUB r5 IF r = 6 THEN: GOSUB r6 IF r = 7 THEN: GOSUB r7 IF r = 8 THEN: GOSUB r8 IF r = 9 THEN: GOSUB r9 IF r = 10 THEN: GOSUB r10 IF r = 11 THEN: GOSUB r11 IF r = 12 THEN: GOSUB r12 IF r = 13 THEN: GOSUB r13 IF r = 14 THEN: GOSUB r14 IF r = 15 THEN: GOSUB r15 IF r = 16 THEN: GOSUB r16 IF r = 17 THEN: GOSUB r17 IF r = 18 THEN: GOSUB r18 IF r = 19 THEN: GOSUB r19 IF r = 20 THEN: GOSUB r20 IF r = 21 THEN: GOSUB r21 IF r = 22 THEN: GOSUB r22 IF r = 23 THEN: GOSUB r23 IF r = 24 THEN: GOSUB r24 IF r = 25 THEN: GOSUB r25 IF r = 26 THEN: GOSUB r26 IF r = 27 THEN: GOSUB r27 IF r = 28 THEN: GOSUB r28 IF r = 29 THEN: GOSUB r29 IF r = 30 THEN: GOSUB r30 IF r = 31 THEN: GOSUB r31 IF r = 32 THEN: GOSUB r32 IF r = 33 THEN: GOSUB r33 IF r = 34 THEN: GOSUB r34 IF r = 35 THEN: GOSUB r35 IF r = 36 THEN: GOSUB r36 IF r = 37 THEN: GOSUB r37 IF r = 38 THEN: GOSUB r38 IF r = 39 THEN: GOSUB r39 IF r = 40 THEN: GOSUB r40 IF r = 41 THEN: GOSUB r41 IF r = 42 THEN: GOSUB r42 IF r = 43 THEN: GOSUB r43 IF r = 44 THEN: GOSUB r44 IF r = 45 THEN: GOSUB r45 IF r = 46 THEN: GOSUB r46 IF r = 47 THEN: GOSUB r47 IF r = 48 THEN: GOSUB r48 IF r = 49 THEN: GOSUB r49 IF r = 50 THEN: GOSUB r50 IF r = 51 THEN: GOSUB r51 IF r = 52 THEN: GOSUB r52 IF r = 53 THEN: GOSUB r53 IF r = 54 THEN: GOSUB r54 IF r = 55 THEN: GOSUB r55 IF r = 56 THEN: GOSUB r56 IF r = 57 THEN: GOSUB r57 IF r = 58 THEN: GOSUB r58 IF r = 59 THEN: GOSUB r59 IF r = 60 THEN: GOSUB r60 IF r = 61 THEN: GOSUB r61 IF r = 62 THEN: GOSUB r62 IF r = 63 THEN: GOSUB r63 IF r = 64 THEN: GOSUB r64 IF r = 65 THEN: GOSUB r65 IF r = 66 THEN: GOSUB r66 RETURN parser: PRINT "> "; cmd$ = GrabInput cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$))) IF cmd$ = "END" OR cmd$ = "QUIT" OR cmd$ = "EXIT" OR cmd$ = "Q" THEN END END IF IF cmd$ = "HELP" OR cmd$ = "H" OR cmd$ = "?" THEN CLS PRINT "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..." PRINT PRINT "NORTH, EAST ,SOUTH, AND WEST - MOVE TO AN AVAILABLE LOCATION" PRINT "EXAMINE (OBJECT) - EXAMINE AN OBJECT" PRINT "USE (OBJECT) - USE AN OBJECT" PRINT "TAKE (OBJECT) - TAKE OR MOVE AN OBJECT" PRINT "INVENTORY - VIEW YOUR INVENTORY" PRINT "DRINK - DRINK BEER" PRINT "UNLOCK - UNLOCK DOOR" PRINT "HELP - VIEW THIS SCREEN" PRINT "END - END GAME" PRINT PRINT "PRESS ANY KEY...": SLEEP DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF cmd$ = "INVENTORY" OR cmd$ = "INV" OR cmd$ = "ITEMS" OR cmd$ = "I" THEN CLS PRINT "INVENTORY..." PRINT IF gotticket = 1 THEN: PRINT "Ticket for the maze." PRINT PRINT "PRESS ANY KEY..." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF cmd$ = "GO NORTH" OR cmd$ = "NORTH" OR cmd$ = "N" THEN IF r = 1 THEN: r = 6: GOTO moved IF r = 6 THEN: r = 14: GOTO moved IF r = 14 THEN: r = 22: GOTO moved IF r = 30 THEN: r = 38: GOTO moved IF r = 38 THEN: r = 46: GOTO moved IF r = 54 THEN: r = 62: GOTO moved IF r = 5 THEN: r = 13: GOTO moved IF r = 13 THEN: r = 21: GOTO moved IF r = 29 THEN: r = 37: GOTO moved IF r = 45 THEN: r = 53: GOTO moved IF r = 4 THEN: r = 12: GOTO moved IF r = 12 THEN: r = 20: GOTO moved IF r = 20 THEN: r = 28: GOTO moved IF r = 44 THEN: r = 52: GOTO moved IF r = 52 THEN: r = 60: GOTO moved IF r = 2 THEN: r = 10: GOTO moved IF r = 10 THEN: r = 18: GOTO moved IF r = 18 THEN: r = 26: GOTO moved IF r = 26 THEN: r = 34: GOTO moved IF r = 34 THEN: r = 42: GOTO moved IF r = 50 THEN: r = 58: GOTO moved IF r = 58 THEN: r = 66: GOTO moved IF r = 7 THEN: r = 15: GOTO moved IF r = 23 THEN: r = 31: GOTO moved IF r = 39 THEN: r = 47: GOTO moved IF r = 55 THEN: r = 63: GOTO moved IF r = 16 THEN: r = 24: GOTO moved IF r = 32 THEN: r = 40: GOTO moved IF r = 48 THEN: r = 56: GOTO moved IF r = 56 THEN: r = 64: GOTO moved IF r = 9 THEN: r = 17: GOTO moved IF r = 17 THEN: r = 25: GOTO moved IF r = 25 THEN: r = 33: GOTO moved IF r = 41 THEN: r = 49: GOTO moved IF r = 49 THEN: r = 57: GOTO moved IF r = 57 THEN: r = 65: GOTO moved END IF IF cmd$ = "GO EAST" OR cmd$ = "EAST" OR cmd$ = "E" THEN IF r = 2 THEN: r = 3: GOTO moved IF r = 3 THEN: r = 4: GOTO moved IF r = 5 THEN: r = 6: GOTO moved IF r = 6 THEN: r = 7: GOTO moved IF r = 7 THEN: r = 8: GOTO moved IF r = 11 THEN: r = 12: GOTO moved IF r = 12 THEN: r = 13: GOTO moved IF r = 15 THEN: r = 16: GOTO moved IF r = 16 THEN: r = 17: GOTO moved IF r = 18 THEN: r = 19: GOTO moved IF r = 22 THEN: r = 23: GOTO moved IF r = 23 THEN: r = 24: GOTO moved IF r = 26 THEN: r = 27: GOTO moved IF r = 27 THEN: r = 28: GOTO moved IF r = 28 THEN: r = 29: GOTO moved IF r = 29 THEN: r = 30: GOTO moved IF r = 30 THEN: r = 31: GOTO moved IF r = 31 THEN: r = 32: GOTO moved IF r = 34 THEN: r = 35: GOTO moved IF r = 36 THEN: r = 37: GOTO moved IF r = 38 THEN: r = 39: GOTO moved IF r = 39 THEN: r = 40: GOTO moved IF r = 40 THEN: r = 41: GOTO moved IF r = 42 THEN: r = 43: GOTO moved IF r = 43 THEN: r = 44: GOTO moved IF r = 45 THEN: r = 46: GOTO moved IF r = 47 THEN: r = 48: GOTO moved IF r = 48 THEN: r = 49: GOTO moved IF r = 51 THEN: r = 52: GOTO moved IF r = 53 THEN: r = 54: GOTO moved IF r = 54 THEN: r = 55: GOTO moved IF r = 58 THEN: r = 59: GOTO moved IF r = 59 THEN: r = 60: GOTO moved IF r = 60 THEN: r = 61: GOTO moved IF r = 61 THEN: r = 62: GOTO moved IF r = 63 THEN: r = 64: GOTO moved IF r = 64 THEN: r = 65: GOTO moved END IF IF cmd$ = "GO SOUTH" OR cmd$ = "SOUTH" OR cmd$ = "S" THEN IF r = 66 THEN: r = 58: GOTO moved IF r = 58 THEN: r = 50: GOTO moved IF r = 42 THEN: r = 34: GOTO moved IF r = 34 THEN: r = 26: GOTO moved IF r = 26 THEN: r = 18: GOTO moved IF r = 18 THEN: r = 10: GOTO moved IF r = 10 THEN: r = 2: GOTO moved IF r = 60 THEN: r = 52: GOTO moved IF r = 52 THEN: r = 44: GOTO moved IF r = 28 THEN: r = 20: GOTO moved IF r = 20 THEN: r = 12: GOTO moved IF r = 12 THEN: r = 4: GOTO moved IF r = 53 THEN: r = 45: GOTO moved IF r = 37 THEN: r = 29: GOTO moved IF r = 21 THEN: r = 13: GOTO moved IF r = 13 THEN: r = 5: GOTO moved IF r = 62 THEN: r = 54: GOTO moved IF r = 46 THEN: r = 38: GOTO moved IF r = 38 THEN: r = 30: GOTO moved IF r = 22 THEN: r = 14: GOTO moved IF r = 14 THEN: r = 6: GOTO moved IF r = 6 THEN: r = 1: GOTO moved IF r = 63 THEN: r = 55: GOTO moved IF r = 47 THEN: r = 39: GOTO moved IF r = 31 THEN: r = 23: GOTO moved IF r = 15 THEN: r = 7: GOTO moved IF r = 64 THEN: r = 56: GOTO moved IF r = 56 THEN: r = 48: GOTO moved IF r = 40 THEN: r = 32: GOTO moved IF r = 24 THEN: r = 16: GOTO moved IF r = 65 THEN: r = 57: GOTO moved IF r = 57 THEN: r = 49: GOTO moved IF r = 49 THEN: r = 41: GOTO moved IF r = 33 THEN: r = 25: GOTO moved IF r = 25 THEN: r = 17: GOTO moved IF r = 17 THEN: r = 9: GOTO moved END IF IF cmd$ = "GO WEST" OR cmd$ = "WEST" OR cmd$ = "W" THEN IF r = 8 THEN: r = 7: GOTO moved IF r = 7 THEN: r = 6: GOTO moved IF r = 6 THEN: r = 5: GOTO moved IF r = 4 THEN: r = 3: GOTO moved IF r = 3 THEN: r = 2: GOTO moved IF r = 17 THEN: r = 16: GOTO moved IF r = 16 THEN: r = 15: GOTO moved IF r = 13 THEN: r = 12: GOTO moved IF r = 12 THEN: r = 11: GOTO moved IF r = 24 THEN: r = 23: GOTO moved IF r = 23 THEN: r = 22: GOTO moved IF r = 19 THEN: r = 18: GOTO moved IF r = 32 THEN: r = 31: GOTO moved IF r = 31 THEN: r = 30: GOTO moved IF r = 30 THEN: r = 29: GOTO moved IF r = 29 THEN: r = 28: GOTO moved IF r = 28 THEN: r = 27: GOTO moved IF r = 27 THEN: r = 26: GOTO moved IF r = 41 THEN: r = 40: GOTO moved IF r = 40 THEN: r = 39: GOTO moved IF r = 39 THEN: r = 38: GOTO moved IF r = 37 THEN: r = 36: GOTO moved IF r = 35 THEN: r = 34: GOTO moved IF r = 49 THEN: r = 48: GOTO moved IF r = 48 THEN: r = 47: GOTO moved IF r = 46 THEN: r = 45: GOTO moved IF r = 44 THEN: r = 43: GOTO moved IF r = 43 THEN: r = 42: GOTO moved IF r = 55 THEN: r = 54: GOTO moved IF r = 54 THEN: r = 53: GOTO moved IF r = 52 THEN: r = 51: GOTO moved IF r = 65 THEN: r = 64: GOTO moved IF r = 64 THEN: r = 63: GOTO moved IF r = 62 THEN: r = 61: GOTO moved IF r = 61 THEN: r = 60: GOTO moved IF r = 60 THEN: r = 59: GOTO moved IF r = 59 THEN: r = 58: GOTO moved END IF IF (cmd$ = "TAKE CORN") THEN CLS PRINT "You reach over and tightly place your hand on it and just before you" PRINT "pluck it from the stalk. Static from an intercom chimes in and tells" PRINT "you not to do that. You quickly take your hand off of the ear of corn" PRINT "and go about your business." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "READ TICKET") AND gotread = 1 THEN CLS PRINT "The ticket reads -Single Admission 047895-. My lucky number too." PRINT "store of some king." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE TICKET") AND gotticket = 1 THEN CLS PRINT "The ticket seems to be the sorta thing someone bought at a depot" PRINT "store of some king." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE CORN") THEN CLS PRINT "You take a look at the corn that's growing for the Earth. It looks" PRINT "good enough to eat." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EAT CORN") THEN CLS PRINT "I don't think the farmer who took the time to plant and maintain it" PRINT "would think to kindly of you eating his crop." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF moved: RETURN r1: PRINT "Your standing outside of the massive corn mase that stretches out by" PRINT "at least twelve feet or so. A cool breeze brushes past you. In such a" PRINT "way that it almost brings a level of horror to the night." RETURN r2: PRINT "A weird feeling comes over you. In the distance you can hear laughter" PRINT "coming from the others." RETURN r3: PRINT "The Earth has an odd feel to it and a chill washes over you. It seems" PRINT "to be growing colder. The corn stocks seem to be standing over you like" PRINT "walls made of steel." RETURN r4: PRINT "This maze seems to have no end to it. You begin to wonder if you'll" PRINT "ever get out of here before the break of dawn." RETURN r5: PRINT "You can hear people chatting with one another. The sounds of car's" PRINT "running in the parking lot." RETURN r6: PRINT "You set foot into the maze, the thought of is this going to be" PRINT "better than the other times you went into those run down amusement" PRINT "parks of before? No, you think to yourself. This is going to be" PRINT "better. This time it's not going to be some run down park. This" PRINT "time it's going to not be some cheap ride. Can you tell I'm bitter?" RETURN r7: PRINT "With every step you take, the echo begin's to fester in your mind." PRINT "You honestly feel as if you are the last man on Earth. Though this" PRINT "is quickly dashed by two children running past you screaming and" PRINT "laughing." RETURN r8: PRINT "You are standing before a wall of corn. You look at it, as it towers" PRINT "over you in such a way that you wonder if it's alive?" RETURN r9: PRINT "Silence...nothing but silence. Suddenly it's broken by the sound of a" PRINT "light generator kicks on and the park is embraced in the pale glow of" PRINT "fuel powered light. Slowly is dulls out the light from the moon." RETURN r10: PRINT "You begin to walk through the silence and you find yourself in a midst" PRINT "silence and wonder." RETURN r11: PRINT "The world around you has such a way around you. With every turn, the maze" PRINT "just keeps expanding." RETURN r12: PRINT "In every direction, you see nothing but more corn." RETURN r13: PRINT "A voice breaks the silence and calls out to all those within the maze. -Don't" PRINT "forget we close at midnight. If your not out of here by then, then your trapped" PRINT "here for life.-" RETURN r14: PRINT "The smell of freshly popped pop corn wofts through the air." RETURN r15: PRINT "Nothing is what it seems. You feel as if you're being watched. The though that" PRINT "someone is watching you?" RETURN r16: PRINT "You stop dead in your tracks and quickly look over to the wall of corn. It quickly" PRINT "sways back and fourth. Probably some kids though..." RETURN r17: PRINT "Your thoughts begin to get the better of you. The ideas start swirling around. The" PRINT "silence grows as you know your not alone, but it feels that way." RETURN r18: PRINT "Nothing...nothing but silence. A darkness comes over you, in the distance" PRINT "you can hear the faint cry of a child." RETURN r19: PRINT "You arrive at a dead end. A cold breeze engulfs you. You look on at the" PRINT "large corn stacks...did you a pair of eye's?" RETURN r20: PRINT "The smell of a storm fills the air. What happened to all the people?" RETURN r21: PRINT "Nothing but silence. Silence lingers in the air and soon becomes an enemy." RETURN r22: PRINT "You can't even hear a soul in this maze. Has everyone already reached the" PRINT "end? Suddenly you hear the laughter of a family having a great time. You" PRINT "give out a sigh of relief." RETURN r23: PRINT "You notice on the ground that there isn't a single foot print in the dirt?" RETURN r24: PRINT "You hear the voice of an elderly woman echoing through the maze. The corn" PRINT "stocks some how increase her volume. -Come closer, my darling.-" RETURN r25: PRINT "You begin to chuckly lightly to yourself. Now someone must be playing with you?" RETURN r26: PRINT "You call out to the old woman, looking around in the hopes of trying to" PRINT "find the source. Must be the owner?" RETURN r27: PRINT "Now all you can hear is her voice being carried on the wind. This is just" PRINT "great. The thought of an ice cold beer comes to mind in dealing with this game." RETURN r28: PRINT "Not any footprints here either." RETURN r29: PRINT "It feels as if you've been wandering for hours now." RETURN r30: PRINT "You begin to feel yourself stumble along the lines of reality. Hearing" PRINT "voices, music, and feeling as if you are being watched. You gotta get" PRINT "a hold of yourself." RETURN r31: PRINT "With every step you take the lights overhead begin flickering in such" PRINT "a way that there must be a short in the line somewhere?" RETURN r32: PRINT "As you down the path...you notice the shadow of someone turning the corner." PRINT "Now you feel as if everything was all in your head." RETURN r33: PRINT "Another dead end. Great!" RETURN r34: PRINT "Walking...walking...and more walking." RETURN r35: PRINT "The scent of rotten flesh fills the air. You are standing at another dead end." RETURN r36: PRINT "Now surprise, it's silent once again. You are overcome with the feeling of" PRINT "someone or something placing a hand on your shoulder." RETURN r37: PRINT "Laughter...laughter is all you hear. Just what the hell is going on here?" RETURN r38: PRINT "The laughter seems to be coming from some children and where are they?" PRINT "You can't even hear anyone walking around." RETURN r39: PRINT "This maze seems to go on forever. Just how big is this place?" RETURN r40: PRINT "Wiping the sweat from your brow, you are really wishing you snuck in a beer." RETURN r41: PRINT "-No way out, no way out. You will die here...all is lost...- The voice of" PRINT "a woman says to you." RETURN r42: PRINT "An eerie silence comes over you as it suddenly gets silent once again." PRINT "Everything comes to a stand still. Not evennature is felt." RETURN r43: PRINT "With every step you take...you feel the eye's of a lone stranger are on" PRINT "you." RETURN r44: PRINT "As you enter the room, you notice the faint image of an elderly old man," PRINT "but before you can do anything he vanishes before your eyes." RETURN r45: PRINT "In the disntace a man shouts out to whoever could hear him. Probably his" PRINT "family. But you can't make it out." RETURN r46: PRINT "From behind you, the sound of footsteps running across the ground. You turn" PRINT "to find no one. But you notice their footsteps before you only to see them" PRINT "vanish before your eyes." RETURN r47: PRINT "Once again you can hear the father shouting out in a panic and are able to" PRINT "understand him. -Please...please help me...noooooooooo.-" PRINT "" RETURN r48: PRINT "You can feel your heart pounding like a jack hammer. The faint smell of blood" PRINT "lingers in the air." RETURN r49: PRINT "-No where to run...no where to hide...soon it'll be your turn to die...-" PRINT "A voice say's right in the core of your being. -Just what the hel is happening here?-" RETURN r50: PRINT "Ideas, ideas begin to run rampant through the mind. How many people have I seen here?" PRINT "Maybe the faint outline of a person?" RETURN r51: PRINT "You find yourself wandering around the twists and turns of the maze. Designed by a" PRINT "mad man of sorts." RETURN r52: PRINT "The loud cry of a man being executed echoes through the air. Stopping you in place" PRINT "like a deer hearing a rifle shot." RETURN r53: PRINT "-What the hell was that?- In the distance you can hear the cry of sirens fill the air." RETURN r54: PRINT "You look around and find nothing more than just more twisting passages that lead to" PRINT "no where." RETURN r55: PRINT "You couldn't help but to wonder just what was lingering in this maze? Was it the angel" PRINT "or death? Or was it that those people who constructed this place were just really" PRINT "good at their jobs?" RETURN r56: PRINT "The faint sound of what could only be described as a sign of hope, that filled my" PRINT "soul with hope, and a car honking washed over myself with absolute joy." RETURN r57: PRINT "You could hear a crowd of people chatting away to themselves. -My God, I'm not" PRINT "alone afterall.- You shout from the top of your lungs but with no luck. No one can hear" PRINT "you." RETURN r58: PRINT "Finally after all this time, all this wondering, and being struck with fear. You can" PRINT "see the warm glow of the parking lot." RETURN r59: PRINT "The silence is broken with the mutter of people..." RETURN r60: PRINT "You can almost feel yourself breaking free from this nature bound prison." RETURN r61: PRINT "With every step that you take...you feel yourself coming ever so closer to freedom." RETURN r62: PRINT "You look all the way down the mighty pathway and could stare into the heart of the maze." PRINT "A cold breeze gives life the stocks around you. They sway in such a way that they almost" PRINT "seem to be alive." RETURN r63: PRINT "Nothing...nothing here...just where the hell am I?" RETURN r64: PRINT "You want to screa, you want to cry, shout, and pray for mercy." RETURN r65: PRINT "You feel the eye's of Death watching you." RETURN r66: PRINT "Standing in the cusp of the maze, you look around, and laugh to yourself like a mad man." PRINT "Then suddenly, you turn to find others exiting behind you, and as they seem happy. You" PRINT "think to yourself just what the hell happened with you?" GOTO win: RETURN win: COLOR 2, 0 CLS PRINT "What a night? You say to yourself. The cold night breeze embraces you as you" PRINT "make your way back to your car. Just a night where your mind ran a little wild." PRINT "A night that soon will not be forgotten." PRINT PRINT "Thank you for playing." DO: LOOP UNTIL INKEY$ <> "" END FUNCTION GrabInput$ x = POS(0) y = CSRLIN maxwidth = _WIDTH - x PCOPY 0, 1 'make a backup copy of the screen DO k = _KEYHIT i$ = INKEY$ LOOP UNTIL k = 0 AND INKEY$ = "" 'clear the keyboard buffer DO _LIMIT 30 PCOPY 1, 0 LOCATE y, x: PRINT Userinput$ k = _KEYHIT SELECT CASE k CASE 8 Userinput$ = LEFT$(Userinput$, LEN(Userinput$) - 1) CASE 65 TO 90, 97 TO 122, 32 Userinput$ = UCASE$(Userinput$ + CHR$(k)) END SELECT timerleft## = (DOOM - TIMER(0.001)) minutes = timerleft## \ 60 seconds = timerleft## - minutes * 60 LOCATE 2, 32: PRINT USING " ###:##.###"; minutes, seconds IF timerleft## <= 0 THEN GOTO doomed _DISPLAY LOOP UNTIL k = 13 GrabInput$ = Userinput$ _AUTODISPLAY EXIT FUNCTION doomed: CLS PRINT "Sadly you got lost in the maze and are now alone. As the days turn into" PRINT "weeks and than into months. All that is left of you are your remains." PRINT "Pity, if only you were smart enough to make it through to the end." _DISPLAY END END SUB